<div class="doc-item" id="doc-750"><h2 class="doc-item-name">defst<span class="namespace">(clojure.contrib.stream-utils)</span></h2><p class="macro">Macro</p><ul class="var-arglists"><li>(<span class="var-name">defst</span> name args streams &amp; body)</li></ul><div class="var-docstring"><p>Define the stream transformer name by body.
   The non-stream arguments args and the stream arguments streams
   are given separately, with args being possibly empty.</p></div><div class="var-source"><pre>; clojure/contrib/stream_utils.clj:182
(defmacro defst
  [name args streams &amp; body]
  (if (= (first streams) '&amp;)
    `(defn ~name ~(vec (concat args streams))
       (let [~'st (with-monad stream-m ~@body)]
	 (st-as-stream ~'st ~(second streams))))
    `(defn ~name ~(vec (concat args streams))
       (let [~'st (with-monad stream-m
		    (let [~streams (range ~(count streams))]
		      ~@body))]
	 (st-as-stream ~'st ~streams)))))</pre></div><div class="license"><p>Copyright (c) Rich Hickey. All rights reserved.</p><p>The use and distribution terms for this software are covered by the <a href="http://opensource.org/licenses/eclipse-1.0.php">Eclipse Public License 1.0</a>, which can be found in the file
          epl-v10.html at the root of this distribution. By using this software
          in any fashion, you are agreeing to be bound by the terms of this
          license. You must not remove this notice, or any other, from this
          software.</p></div></div>